home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
show_bmp.zip
/
BMPTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-03-23
|
209b
|
12 lines
Uses show_bmp,crt;
Begin
SetVideomode($13); {Set Video Mode to 320x200x256c}
showbmp('runset.dat'); {Display the bitmap}
repeat
until keypressed;
textmode(co80); {Setup Textmode}
end.